home *** CD-ROM | disk | FTP | other *** search
- object Form10: TForm10
- Left = 232
- Top = 131
- Width = 509
- Height = 333
- Caption = 'Form10'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- OnMouseMove = FormMouseMove
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object CheckBox1: TCheckBox
- Left = 256
- Top = 16
- Width = 161
- Height = 21
- Caption = 'Clean trojan'
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Courier New'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- TabOrder = 0
- OnMouseMove = CheckBox1MouseMove
- end
- object Memo1: TMemo
- Left = 0
- Top = 88
- Width = 494
- Height = 190
- Color = clWhite
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ReadOnly = True
- TabOrder = 1
- OnMouseMove = FormMouseMove
- end
- object HexEditor1: THexEditor
- Left = 276
- Top = 180
- Width = 33
- Height = 29
- Cursor = crIBeam
- TabStop = False
- ShowMarkerColumn = False
- BytesPerColumn = 2
- Translation = ttAnsi
- CreateBackup = False
- BackupExtension = '.bak'
- BorderStyle = bsNone
- OffsetDisplay = odHex
- BytesPerLine = 16
- Colors.Background = clWindow
- Colors.PositionBackground = clMaroon
- Colors.PositionText = clWhite
- Colors.ChangedBackground = 11075583
- Colors.ChangedText = clMaroon
- Colors.CursorFrame = clNavy
- Colors.Offset = clBlack
- Colors.OddColumn = clBlue
- Colors.EvenColumn = clNavy
- FocusFrame = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Courier'
- Font.Style = []
- OffsetSeparator = ':'
- MaskWhiteSpaces = False
- AutoCaretMode = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 2
- Visible = False
- ColWidths = (
- 36
- 0
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9)
- end
- object Panel1: TPanel
- Left = 0
- Top = 289
- Width = 501
- Height = 17
- Align = alBottom
- Alignment = taLeftJustify
- BevelInner = bvLowered
- TabOrder = 3
- end
- object DirectoryEdit1: TDirectoryEdit
- Left = 0
- Top = 52
- Width = 485
- Height = 21
- DialogKind = dkWin32
- NumGlyphs = 1
- ButtonWidth = 20
- TabOrder = 4
- Text = 'c:\'
- end
- object SpeedButton1: TGradBtn
- Left = 108
- Top = 12
- Width = 85
- Height = 25
- DisabledColor = clWhite
- BtnHiliteClr = clNavy
- BtnShadowClr = clNavy
- BeginColor = clWhite
- EndColor = clWhite
- ShowFocus = False
- GradientStyle = gsElliptic
- TextStyle = tsNormal
- OnMouseEnter = SpeedButton1MouseEnter
- Caption = 'Scan'
- OnClick = SpeedButton1Click
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- TabOrder = 5
- TabStop = True
- end
- object HexEditor2: THexEditor
- Left = 300
- Top = 152
- Width = 33
- Height = 29
- Cursor = crIBeam
- BytesPerColumn = 2
- Translation = ttAnsi
- BackupExtension = '.bak'
- OffsetDisplay = odHex
- BytesPerLine = 16
- Colors.Background = clWindow
- Colors.PositionBackground = clMaroon
- Colors.PositionText = clWhite
- Colors.ChangedBackground = 11075583
- Colors.ChangedText = clMaroon
- Colors.CursorFrame = clNavy
- Colors.Offset = clBlack
- Colors.OddColumn = clBlue
- Colors.EvenColumn = clNavy
- FocusFrame = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Courier'
- Font.Style = []
- OffsetSeparator = ':'
- TabOrder = 6
- Visible = False
- ColWidths = (
- 36
- 9
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 18
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9
- 9)
- end
- object AHMFileCollector2: TAHMFileCollector
- OnFileFound = AHMFileCollector2FileFound
- FileMask = '*.exe'
- OnDone = AHMFileCollector2Done
- Left = 272
- Top = 152
- end
- object StringCrypt2000X1: TStringCrypt2000X
- Left = 248
- Top = 152
- end
- object UnZip1: TUnZip
- CpuType = cptAuto
- FileSpec.Strings = (
- '*.exe')
- OnFileExists = UnZip1FileExists
- Left = 248
- Top = 180
- end
- end
-